Imports System.IO
Imports System.Xml.XPath

Public Class SessionRequest
    Inherits Request

    Public Sub New(ByVal xn As XPathNavigator, ByVal xmlStr As String)

        MyBase.New(xn, RequestType.Session, xmlStr)

    End Sub

    Protected Overrides Function DoResponse(ByVal r As System.Net.HttpWebResponse) As Response

        Dim resp As Response

        Dim os As Stream = r.GetResponseStream()
        'Using sr As New StreamReader(os)
        '    Dim xml As String = sr.ReadToEnd()
        '    resp = New SessionResponse(xml)
        'End Using
        resp = New SessionResponse(os)
        os.Close()

        Return resp

    End Function
End Class
